﻿Public Class Admin
    Private usuario As String = "Admin"
    Private pass As String = "Polla"
    Private _User As String
    Private _Password As String
    Private _Name As String
    Private _ID As Integer
    Public Function AñadirEmpleado(ByVal empleado As Employer)

    End Function
    Public Function ModificarEmpleados(ByVal empleado As Employer)

    End Function
    Public Function BorrarEmpleado(ByVal empleado As Employer)

    End Function

    Public Function AñadirCliente(ByVal empleado As Customer)

    End Function

    Public Function ModificarClientes(ByVal cliente As Customer)

    End Function
    Public Function BorrarClientes(ByVal cliente As Customer)

    End Function

    Public Function AñadirEmpleado(ByVal empleado As Producto)

    End Function
    Public Function ModificarProductos(ByVal producto As Producto)

    End Function
    Public Function BorrarProducto(ByVal producto As Producto)

    End Function
 




    Public Sub New(ByVal usu As String, ByVal passw As String)
        _User = usu
        _Password = passw
    End Sub
    Public Property User As String
        Get
            Return _User
        End Get
        Set(ByVal value As String)
            If Not value.Equals(usuario) Then
                value = Nothing
            End If
            _User = value
        End Set
    End Property
    Public Property Password As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            If Not value.Equals(pass) Then
                value = Nothing
            End If
            _Password = value
        End Set
    End Property
    Public Property Name As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property
    Public Property ID As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property


End Class
